(COMMENT BPS 45000. )
(ALLOC '(LIST 100000 100000 NIL))
(PROGN

(SSTATUS INTERRUPT 13. 'GC-OVERFLOW-DAEMON) 

(FASLOAD GCDEMN FAS DSK (AID RPG))
(APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR)))
(FASLOAD NCOMPLR)
(FASLOAD GETMID)
(FASLOAD FASLAP)
(FASLOAD EREAD)
(FASLOAD NCOREQ)
(FASLOAD STACK)
(DEFPROP CGOL (CGOL FAS DSK (MAC LSP)) AUTOLOAD)
(DEFPROP CGOLREAD (CGOL FAS DSK (MAC LSP)) AUTOLOAD)
(INITIALIZE)
(FASLOAD MACROD)
(FASLOAD MATCH)
(*FEXPR EREAD)
(FASLOAD LOADED)
'DONE)